#!/usr/bin/perl -w

#===============================================================
# unik_df
# File ID: 31d8d1e4-5d47-11df-8c23-90e6ba3022ac
# Filtrerer bort duplikater i ~/log/df.log .
# Character set: UTF-8
# License: GNU General Public License versjon 2 eller nyere
# ©opyleft 2003 Øyvind A. Holm <sunny@sunbase.org>
#===============================================================

use strict;

$| = 1;

my $last_val = 0;

while (<>) {
	chomp;
	if (/^(\S+) (\d+)/) {
		unless ($2 eq $last_val) {
			print("$1 $2\n");
		}
		$last_val = $2;
	}
}

__END__

=pod

=head1 LICENCE

This program is free software; you can redistribute it and/or modify it 
under the terms of the GNU General Public License as published by the 
Free Software Foundation; either version 2 of the License, or (at your 
option) any later version.

This program is distributed in the hope that it will be useful, but 
WITHOUT ANY WARRANTY; without even the implied warranty of 
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
See the GNU General Public License for more details.

You should have received a copy of the GNU General Public License along 
with this program; if not, write to the Free Software Foundation, Inc., 
59 Temple Place, Suite 330, Boston, MA  02111-1307  USA

=cut

# vim: set fileencoding=UTF-8 filetype=perl foldmethod=marker foldlevel=0 :
# End of file unik_df
